#!/usr/bin/perl  
#Script:  env_array 
foreach $key (keys(%ENV)){ 
print "$key\n"; 
}  
print "Your login name $ENV{'LOGNAME'}\n"; 
$pwd=$ENV{'PWD'}; 
print "\n", $pwd, "\n"; 
